﻿<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!--#include file="utf-8.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="Include.asp"-->
<!--#include file="page.asp"-->

<%
select case request("id")
case 2
strTitle = ("专家学者 Experts and scholars")
case 3
strTitle = ("设计师 Designers")
case 4
strTitle = ("企业家 Entrepreneur")
end select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<title>创意产业园</title>
<link href="images/style.css" rel="stylesheet" type="text/css"/>
<script src="images/js.js" type="text/ecmascript"></script>
</head>
<body>
<div id="all">
    <!--#include file="header.asp"-->
    <div class="EnterPark">
        <div class="Content" style="width:100%;">
            <div class="Content_path" style="background:url(/images/bg_celeb_path.jpg) 0 3px no-repeat;"><a href="#">园区概况</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href="#"><%=left(strTitle,4)%></a></div>
				<%
                    sql=" Select * from about where sortid="& request("id")
                    Set rs = Server.CreateObject ("ADODB.Recordset")
                    rs.open sql,conn,1,1
                    if not rs.eof then
                        title = rs("title")
                        Content = rs("body")
                    end if 
                    rs.close
                    set rs=nothing
                %>
            <div class="Content_title"><%=strTitle%></div>
            <div class="Content_txext" style="font-size:12px;">
                <div id="celeb">
				<%	
                set rs=server.createobject("adodb.recordset") 
                exec="select * from Celeb where SortID = " & request("id")
                rs.open exec,conn,1,1 
                if rs.eof then
                response.Write "&nbsp;暂无分类！"
                else
                rs.PageSize =6 '每页记录条数
                iCount=rs.RecordCount '记录总数
                iPageSize=rs.PageSize
                maxpage=rs.PageCount 
                page=request("page")
                if Not IsNumeric(page) or page="" then
                page=1
                else
                page=cint(page)
                end if
                if page<1 then
                page=1
                elseif  page>maxpage then
                page=maxpage
                end if
                rs.AbsolutePage=Page
                if page=maxpage then
                x=iCount-(maxpage-1)*iPageSize
                else
                x=iPageSize
                end if	
                %>
                <%For i=1 To x%>
                
                <div class="list_info">
                    <a href="/celebContent.asp?id=<%=rs("id")%>&class=<%=request("id")%>" target="_blank"><img width="234" height="167"  src="<%=rs("Photo")%>"/></a>
                    <div class="info_name"><span class="sp_name"><%=rs("Name")%></span></div>
                    <div class="info_content" style="line-height:18px;padding-top:5px;height:35px;overflow:hidden;"><%=left(nohtml(rs("Description")),35)%>...</div>
                    <div class="more"><a href="/celebContent.asp?id=<%=rs("id")%>" target="_blank"></a></div>
                </div>
                <%rs.movenext
                next
                %>
                <%end if%>
                <%'以下显示分页
                response.write ("<div class=""showpage"">")
                call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
                response.write ("</div>")
                rs.close
                set rs=nothing
                %>
                </div>
                
            </div>
        </div>
    </div>
    <!--#include file="bottom.asp"-->
</div>
</body>
</html>